home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8608a.d64 / demo modul33 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  450b  |  18 lines

  1. 100 REM BEISPIEL "MITTERNACHTSFORMEL"
  2. 110 PRINT "LOESUNG EINER QUADRATISCHEN GLEICHUNG"
  3. 120 INPUT "KOEFFIZIENTEN A,B,C ";A,B,C : PRINT
  4. 130 D=B*B-4*A*C
  5. 140 CASE IF D>=0
  6. 150 :    CASE IF D>0
  7. 160 :         PRINT "ZWEI LOESUNGEN"
  8. 170 :         PRINT "X1 =";(-B+SQR(D))/(2*A)
  9. 180 :         PRINT "X2 =";(-B-SQR(D))/(2*A)
  10. 190 :    CASE ELSE
  11. 200 :         PRINT "EINE LOESUNG"
  12. 210 :         PRINT "X =";-B/(2*A)
  13. 220 :    CASE END
  14. 230 CASE ELSE
  15. 240 :    PRINT "KEINE REELLE LOESUNG"
  16. 250 CASE END
  17. 260 END
  18.